# | CMD_FUNCT,C,1 | EXECUTE,C,44 | MEMO,M | COMMAND,C,35 | SEQUENCE,C,2 | PAGE,C,9 | USE_RCRD,N,4,0
|
---|
1 | A | | | | | | |
2 | A | | | | | | |
3 | A | | | | | | |
4 | A | | | | | | |
5 | A | | | | | | |
6 | C | set proc to rm,memoedit(memoread('read.me')) | | wait | | | |
7 | C | set batch to demo,demo; demo | | | | | |
8 | C | clear; close all; use baseball; declar | | count()]; AFIELDS(FIELDS); | fi | eld_name= | 0 |
9 | C | A=10; B=20; C=A*B; D=SQRT(C); ? a,b | | ait | | | |
10 | C | ? 'Hello World'; wait | | | | | |
11 | C | a=1; clear; set mess to 15; set echo | | t cons off; @ 10,1 PROM 'Menu 1' | M | ESS 'Do m | 0 |
12 | C | set echo off; set cons off; clear; num | | ,12 SAY 'ENTER A NUMBER FROM 25-60 | ' | GET NUM P | 0 |
13 | C | clear; @ 10,10 TO 15,20; @ 9,30 TO 14 | | ; wait | | | |
14 | C | clear; ACCEPT 'Enter a string ' TO string; | | g; wait | | | |
15 | C | close all; use baseball; copy to junk; | | ; APPEND | | | |
16 | C | close all; use baseball; copy to junk; | | ? reccount(); APPEND BLANK; | AP | PEND BLAN | 0 |
17 | C | close all; use baseball; copy stru to ju | | junk; APPEND FROM BASEBALL | F | OR LEAGUE | 0 |
18 | C | close all; use sales; AVERAGE EXPENSES TO | | FOR YEAR='1986'; ?_expenses; wai | t | | |
19 | C | BATCH DEMO | | | | | |
20 | C | CHR | | | | | |
21 | C | curdir=dc_curpath(); CD.. ; wait; CD DC | | ait | | | |
22 | C | CLEAR; wait; a='this is a get (press ent | | 10,10 get a; wait; CLEAR SCREEN | ; | READ | |
23 | C | KEYBOARD ' this is a test'; CLEAR TYPEAHEA | | | | | |
24 | C | CLEAR; a='get 1'; b='get 2'; set cons | | 0,10 get a; @ 11,10 get b; CLE | AR | GETS; | 0 |
25 | C | CLOSE ALL; use baseball index player; ? | | dexkey(0); wait; CLOSE INDEX | ; | ? alias | 0 |
26 | C | COLOR; wait | | | | | |
27 | C | COLOR SETUP; wait | | | | | |
28 | C | close all; use baseball; copy stru to ju | | junk; append blank; dir | ju | nk.dbf; | 0 |
29 | C | close all; use baseball; locate for posi | | ?player,team,positio | n; | wait; | 0 |
30 | C | close all; use baseball; COPY TO JUNK FO | | ='1B'; use junk; list pla | ye | r,team,po | 0 |
31 | C | dir read*.*; wait; COPY FILE READ.ME TO | | dir read*.*; wait; erase readm | e. | 2 | |
32 | C | close all; use baseball; COPY STRUCTURE | | use junk; display structure | | | |
33 | C | close all; use baseball; COPY STRUCTURE | | O JUNK; use junk; list; | w | ait | |
34 | C | close all; use baseball; COUNT FOR POSIT | | AND. LEAGUE='NL' TO NL1B; ? nl1b; | | wait | |
35 | C | close all; CREATE JUNK; display structur | | | | | |
36 | C | close all; use baseball; copy stru exte | | use junk; list; close; wai | t; | CREATE | 0 |
37 | C | clear; DECLARE ELEMENTS[5]; elements[1]= | | elements[2]=date(); | | elements[ | 3 |
38 | C | close all; use baseball; copy to junk; | | DELETE FOR POSITION= | '1 | B'; lis | 0 |
39 | C | clear; DIR; wait; clear; DIR DC*.*; | | | | | |
40 | C | close all; use baseball; | | DISPLAY NEXT 10 TEAM | ,P | LAYER,POS | 0 |
41 | C | clear; DISPLAY ARRAY _D_C_COLOR; myarray | | ,4,5); DISPLAY ARRAY MYARRAY; D | IS | PLAY ARRA | 0 |
42 | C | clear; string='this is string'; number=1 | | date=DATE(); logical=.t.; scre | en | =SAVESCRE | 0 |
43 | C | clear; string='this is string'; number=1 | | date=DATE(); logical=.t.; scre | en | =savescre | 0 |
44 | C | close all; key load; set batch to demo,d | | proc to br,DC_BROWSE(); use base | ba | ll index | 0 |
45 | C | close all; use baseball; DISPLAY STRUCTU | | | | | |
46 | C | close all; use baseball; copy to junk; | | EDIT | | | |
47 | C | EDIT FILE READ.ME; EDIT READ.ME; EDIT RE | | | | | |
48 | C | clos all; use baseball; copy structure e | | temp; use temp; append b | la | nk; rep | 0 |
49 | C | EJECT | | | | | |
50 | C | copy file baseball.dbf to junk.dbf; dir ju | | wait; ERASE FILE JUNK.DBF; | | dir junk | 0 |
51 | C | close all; use baseball index player; FI | | ? team,player,posit | io | n; wait | |
52 | C | close all; use baseball; GOTO 10; | | ? recno(),team,playe | r, | position; | 0 |
53 | C | close all; use baseball; INDEX ON POSITI | | TION; set index to positi | on | ; list | 0 |
54 | C | INKEY | | | | | |
55 | C | clos all; use baseball; copy to junk; | | goto 5; INSERT 3; repl pla | ye | r with 'I | 0 |
56 | C | clear; INPUT 'ENTER A NUMBER ' TO NUMBER; | | ; wait | | | |
57 | C | close all; use baseball; sele 0; use s | | JOIN WITH BASEBALL T | O | JUNK FOR | 0 |
58 | C | clear; string=space(30); set typeahead t | | t echo off; KEYBOARD ' Hello f | ro | m the tut | 0 |
59 | C | close all; clear; use baseball; LABEL | | ALL; wait | | | |
60 | C | close all; use baseball; | | LIST TEAM,PLAYER,POS | IT | ION FOR L | 0 |
61 | C | close all; use sales; LIST STRUCTURE | | | | | |
62 | C | close all; use baseball; | | LOCATE FOR PRES_VALU | E> | 1.50 .AND | 0 |
63 | C | set message to 15; set cons off; clear; | | 10,10 prom 'Menu 1' mess 'Do menu | 1' | ; @ 11, | 10 |
64 | C | MODIFY COMMAND DEMO.PRG | | | | | |
65 | C | close all; use baseball; copy to junk; | | MODIFY STRUCTURE; | di | splay str | 0 |
66 | C | close all; use baseball; copy to junk; | | ? reccount(); dele for positio | n= | '1B'; P | 0 |
67 | C | proc clear; PROC DEMO; set step on; do | | ROC CALC; set step on; do de | mo | | |
68 | C | PROC CLEAR; proc demo; proc calc; proc | | proc grsubtot; proc; wait; ; | | ; PR | 0 |
69 | C | close all; use baseball; QUERY MY_QUERY; | | my_query=iif(empty(m | y_ | query),'. | 0 |
70 | C | store space(15) to get1,get2,get3; set ech | | et cons off; clear; @ 10,10 say | ' | This is g | 0 |
71 | C | close all; use baseball; copy to junk; | | delete for league='NL'; count | fo | r deleted | 0 |
72 | C | close all; use baseball index team,player; | | | | | |
73 | C | junk1='junk'; junk2='more junk'; string1 | | string2='another str | in | g'; num | 1 |
74 | C | set defa to; copy file demo.prg to junk.pr | | unk.prg; wait; RENAME JUNK.PRG | TO | NEWJUNK. | 0 |
75 | C | close all; use baseball; copy to junk; | | goto 10; ? player,team; REP | LA | CE TEAM W | 0 |
76 | C | close all; use baseball; REPORT FORM BAS | | LEAGUE='NL'; wait | | | |
77 | C | release all; string='this is a string'; | | ); number=123.45; dis | pl | ay memory | 0 |
78 | C | release all; string='this is a string'; | | ); number=123.45; dis | pl | ay memory | 0 |
79 | C | close all; SELECT 5; use baseball; SEL | | se sales; wait; display stat | us | ; wait; | 0 |
80 | C | clear; dc_expl(5,10,20,70,' this is a box | | save screen to oldsc | re | en; wai | 0 |
81 | C | clear; dc_expl(5,10,20,70,' this is a box | | SAVE SCREEN TO OLDSC | RE | EN; wai | 0 |
82 | C | save set to junk; display status; set de | | porary; set cursor off; s | et | path to | 0 |
83 | C | SAVE SET TO JUNK; display status; set de | | porary; set cursor off; s | et | path to | 0 |
84 | C | SEARCH * DCLIP; SEARCH BASEBALL ROSE | | | | | |
85 | C | close all; use baseball index team; SEEK | | ? team,player,posit | io | n; wait | |
86 | C | SET DEFA; SET PATH; SET CURSOR; SET CO | | ait | | | |
87 | C | SET ALTERNATE TO JUNK.ALT; SET ALTERNATE O | | rint on; ? 'This is a test'; | | ? 'This i | 0 |
88 | C | SET BATCH TO demo,demo | | | | | |
89 | C | SET BELL ON; set echo off; set cons off; | | clear; @ 10,10 SAY 'Bell is | O | N, Enter | 0 |
90 | C | SET CENTURY OFF; set echo off; set cons | | ate(); clear; @ 10,10 SAY | ' | Century i | 0 |
91 | C | oldcolor=setcolor(); SET COLOR TO GR+; ? | | yellow'; SET COLOR TO W+*/G; | | ? 'This i | 0 |
92 | C | SET COMMAND TO DW,DIR /W,50,C:; dw; wait | | | | | |
93 | C | SET CONSOLE ON; ? 'this sh | | the screen'; ? 'this should go t | o | the scree | 0 |
94 | C | SET CURSOR ON; ? 'The cursor is ON'; wai | | URSOR OFF; ? 'The cursor is OFF | '; | wait; | 0 |
95 | C | clear; SET DATE GERMAN; ?date(); SET D | | N; ?date(); SET DATE ANSI; ?d | at | e(); SE | 0 |
96 | C | set fixed on; number=123.4567; SET DECIM | | ? number; wait; ; ; SET | D | ECIMALS T | 0 |
97 | C | default=dc_sett('defa'); SET DEFAULT TO; | | it; SET DEFAULT TO C:\; | | dir; wa | 0 |
98 | C | close all; use baseball; copy to junk; | | dele for position='1 | B' | ; SET D | 0 |
99 | C | clear; c=space(10); SET DELI ON; SET D | | '; set cons off; set | ec | ho off; | 0 |
100 | C | SET DEVICE TO SCREEN; 10,10 say 'This goes | | reen'; SET DEVICE TO PRINT; | | @ 12,10 | 0 |
101 | C | SET ECHO ON | | | | | |
102 | C | clear; e=' '; SET ESCAPE ON; set ech | | et cons off; @ 10,10 say 'Escape | is | ON, Pres | 0 |
103 | C | clear; A='12345'; B='123'; SET EXACT O | | = B; wait; ; ; SET EXACT ON | ; | ? A = B | 0 |
104 | C | clear; SET EXCLUSIVE ON; use baseball; | | ait; ; ; ; SET EXCLUSIVE OFF | ; | use bas | 0 |
105 | C | clear; close all; use baseball; SET FI | | AGUE='NL'; list team,player,lea | gu | e; wait | 0 |
106 | C | clear; SET FIXED ON; number=123.4567; | | ls to 5; ? number; wait; | ; | ; se | 0 |
107 | C | clear; f=space(10); set defa to; memow | | prg','@ 10,10 say "This is from jun | k. | prg forma | 0 |
108 | C | clear; | | SET FUNCTION 2 TO ' | T | his is th | 0 |
109 | C | clear; close all; use baseball; list t | | ; wait; SET INDEX TO TEAM; | l | ist team, | 0 |
110 | C | a=space(10); clear; SET INTE ON; set e | | set cons off; @ 10,10 say 'Inten | si | ty is ON' | 0 |
111 | C | obj demo1; SET KEY -1 TO CALC; wait 'Pre | | now...'; SET KEY -1 TO | | | |
112 | C | clear; set printer to junk.prn; set prin | | T MARGIN TO 10; ? 'The margin is | no | w 10'; | 0 |
113 | C | a=1; clear; SET MESS TO 15 CENTER; set | | set cons off; @ 10,1 prom 'Menu | 1 | ' mess 'D | 0 |
114 | C | clear; close all; use baseball index tea | | list team,player,lea | gu | e; wait | 0 |
115 | C | clear; close all; SET PATH TO; cd \; | | all; wait; SET PATH TO \DCLIP25 | ; | use bas | 0 |
116 | C | clear; set printer to junk.prn; SET PRIN | | 'This goes to the printer'; SET P | RI | NT OFF; | 0 |
117 | C | clear; SET PRINTER TO JUNK.PRN; set prin | | 'This goes to the printer'; set p | ri | nt off; | 0 |
118 | C | clear; SET PROCEDURE TO MEMO,MEMOWRIT('MEM | | MOEDIT(MEMOREAD('MEMOS.TXT'),3,0,15 | ,7 | 9)); ? | 0 |
119 | C | SET PROMPT OFF; wait; SET PROMPT ON; w | | | | | |
120 | C | clear; sele dctutor; set order to 2; s | | se dchelp; SET RELATION TO COMM | AN | D INTO DC | 0 |
121 | C | a=' '; clear; SET SCORE ON; set cons o | | echo off; @ 10,10 say 'Scorebo | ar | d is ON, | 0 |
122 | C | clear; close all; use baseball index pla | | SOFTSEEK OFF; seek 'ABC'; ? pl | ay | er,team,p | 0 |
123 | C | | | | | | |
124 | C | clear; close all; use baseball; set in | | m; list team,player; | wa | it; SET | 0 |
125 | C | a=1; clear; SET WRAP ON; set echo off; | | s off; @ 10,1 prom 'Menu 1' | ; | @ 11,1 | 0 |
126 | C | clear; close all; use baseball; SORT O | | UE TO JUNK; use junk; list te | am | ,player,p | 0 |
127 | C | clear; close all; use baseball; ? recn | | layer; SKIP; ? recno(),team,play | er | ; SKIP | 5 |
128 | C | clear; STORE 'abcde ' TO a,b,c,d,e; STOR | | 1,n2,n3,n4; ? a,b,c,d,e,n1,n2,n | 3, | n4; wai | 0 |
129 | C | clear; close all; use baseball; SUM OR | | RES_VALUE TO PRICE,VALUE FOR LEAGUE | =' | AL'; ? | 0 |
130 | C | clear; close all; use baseball index tea | | TOTAL ON TEAM FIELD | PR | ES_VALUE | 0 |
131 | C | clear; TYPE READ.ME; wait | | | | | |
132 | C | clear; close all; use baseball; copy t | | set excl off; use junk; repl te | am | with 'AS | 0 |
133 | C | clear; close all; USE SALES; browse; | | USE BASEBALL INDEX T | EA | M,PLAYER | 0 |
134 | C | clear; close all; use baseball; copy t | | UTILITIES; UTILITIES C | | | |
135 | C | clear; close all; use baseball; VIEW | | | | | |
136 | C | WAIT; WAIT 'Press a key to go back to the t | | | | | |
137 | C | clear; close all; use baseball; copy t | | use junk; list team,player; | Z | AP; lis | 0 |
138 | F | string='this is a string'; number=123.456; | | te(); logical=.t.; box=d | c_ | expl(5,10 | 0 |
139 | Z | | | | | | |
140 | Z | | | | | | |
141 | F | clear; close all; set exclusive off; u | | l; copy to junk; use | ju | nk; ? r | 0 |
142 | F | clear; close all; use baseball; copy t | | set exclusive off; | | use junk; | 0 |
143 | F | set defa to; clear; close all; use bas | | DC_BROWSE(); wait; DC_BROWSE(.T | ., | '','TEAM' | 0 |
144 | F | clear; curpath=dc_curpath(); DC_CHDIR('. | | ; wait; DC_CHDIR(curpath); | | dir; wa | 0 |
145 | F | clear; ? DC_CHRSEL(); wait; ? DC_CHRSE | | wait | | | |
146 | F | clear; DC_CLRARR(.t.); wait | | | | | |
147 | F | ? DC_CLRSEL(); wait; ? DC_CLRSEL(2); w | | | | | |
148 | F | clear; COLOR_MON=.T.; ? DC_COLOR('W+/R') | | red'; COLOR_MON=.F.; ? D | C_ | COLOR('W+ | 0 |
149 | F | ? DC_CONMEM(); obj rele all; ? DC_CONM | | ait | | | |
150 | F | clear; close all; DC_CREATE('JUNK'); | | ; display structure; | | wait | |
151 | F | clear; ? DC_CURPATH(); ? DC_CURPATH('C | | ait | | | |
152 | F | clear; close all; use baseball; | | DC_DBCH(5,15,20,65,' | Pr | ess enter | 0 |
153 | F | clear; use baseball; index on upper(pl | | layer; DC_DBCH(5,15,20,65,' | ', | ' Player | 0 |
154 | F | clear; use baseball; index on league | | seek 'NL'; DC_DBCH(5,15,20,65,' | Pr | ess enter | 0 |
155 | F | clear; close all; ? DC_DBFILE('','BASE | | ? alias(); wait; ? DC_DBFILE | (' | ','JUNKFI | 0 |
156 | F | close all; use baseball; ? DC_DBINDEX('' | | ? DC_DBINDEX('','JUN | KF | ILE','LEA | 0 |
157 | F | clear; close all; use baseball; s | | use sales; ? DC_DBSEL('JUNK'); | | wait; | 0 |
158 | F | clear; close all; use baseball; ? | | ); clear; ? DC_DBSTRU(10,20,. | t. | ) | |
159 | F | clear; close all; use baseball; | | (10,16); wait | | | |
160 | F | clear; close all; use baseball; de | | ds[fcount()]; afields(fields); | D | C_DISPARR | 0 |
161 | F | clear; store 'testing' to a,b,c,d,e,f,g; | | ; date=date(); tim | e= | time(); | 0 |
162 | F | clear; key_char=''; key_num=0; @ 10 | | ress a key'; DC_DISPTM(12,10,'key | _n | um','key_ | 0 |
163 | F | obj release all; rename demo.obj to demo. | | DO('DEMO'); rename demo.old to d | em | o.obj; | 0 |
164 | F | DC_DOT() | | | | | |
165 | F | clear; close all; use baseball; co | | ; use junk; DC_EDIT(); clear | ; | wait; | |
166 | F | clear; set console off; scrn=DC_EXPLODE(5,10 | | ','GR+',.F.,'this is the title',30) | ; | wait; DC_ | 0 |
167 | F | clear; close all; use baseball; sel | | sales; set rela to year int | o | baseball; | 0 |
168 | F | clear; close all; use baseball; copy | | set excl off; use junk; replac | e | league wi | 0 |
169 | F | clear; string='abcdefgh'; string=DC_GET | | g'); wait | | | |
170 | F | DC_HELP('ACHOICE'); wait; DC_HELP(); | | COPY'); wait | | | |
171 | F | clear; set console off; | | scrn=dc_explode(5,10 | ,1 | 5,60,'GR+ | 0 |
172 | F | DC_INIT() | | | | | |
173 | F | clear; use dckey; copy to junk; use j | | o 2; repl fkey_cont with | 'D | EMO'; r | 0 |
174 | F | clear; close all; use baseball; copy t | | use junk; goto 6; ? reccount(); | | DC_INSE | 0 |
175 | F | readme=memoread('read.me'); DC_MEMO('READ | | 0,70,.T.,.T.,.T.,'D','','N/W','W+/R | B' | ,.T.,.F., | 0 |
176 | F | close all; use dctutor; copy to junk whi | | <20; use junk; DC_MEMOIMP() | | | |
177 | F | clear; close all; set exclusive off; | | DC_NETUSE('BASEBALL' | ,. | t.,5); | 0 |
178 | F | clear; close all; use baseball; copy t | | use junk; DC_MODSTRU(); dis | p | stru | |
179 | F | clear; set printer to junk.txt; | | DC_MPRINT("MEMOREAD( | 'D | EMO.PRG') | 0 |
180 | F | clear; close all; use dctutor; copy to | | e recno()<20; use junk; go 10; | | replace | 0 |
181 | F | clear; close all; use baseball; | | REPORT FORM BASEBALL | W | HILE DC_P | 0 |
182 | F | clear; wait 'Take your printer off-line... | | PRTEST(); wait 'Put your print | er | back on | 0 |
183 | F | clear; set echo off; set console off; | | ,10,20,70," Let's print this windo | w | only "); | |
184 | F | condition='.t.'; clear; close all; us | | ; condition=DC_QUERY(c | on | dition); | 0 |
185 | F | clear; close all; set exclusive off; u | | l; repl player with pla | ye | r; ? DC | 0 |
186 | F | clear; close all; DC_SEARCH('BASEBALL','RO | | DC_SEARCH('*','DCLIP | ', | 'SEARCH.T | 0 |
187 | F | DC_SETINIT() | | | | | |
188 | F | clear; set cursor off; ? DC_SETREAD('CURS | | cursor on; ? DC_SETREAD('CURS') | ; | set dev | 0 |
189 | F | clear; dc_setsave('main'); set cursor of | | evice to print; set date italian; | | ? dc_set | 0 |
190 | F | clear; DC_SETSAVE('MAIN'); set cursor of | | evice to print; set date italian; | | ? dc_set | 0 |
191 | F | clear; / clear;?'hello world';a=1;DC_SETSTEP | | hile a<10;@ a+3,10 say 'this is lin | e | '+str(a); | 0 |
192 | F | clear; set cursor off; ? DC_SETT('CURS'); | | sor on; ? DC_SETT('CURS'); | ? | DC_SETT( | 0 |
193 | F | clear; DC_SETWRIT('CURS',.T.); set curso | | DC_SETWRIT('DATE','F | RE | NCH'); | 0 |
194 | F | ? DC_TSTFILE('DEMO.PRG',.f.,.t.); wait; | | ? DC_TSTFILE('XXX.XX | ', | .t.,.t.); | 0 |
195 | F | clear; close all; DC_UTIL(); wait; D | | ); wait; use baseball; DC_U | TI | L('D') | |
196 | F | array=array(5); afill(array,'JUNK'); dis | | array; AADD(array,'MORE JUN | K' | ); displ | 0 |
197 | F | num1=100; num2=150; ?num1-num2; ?ABS(num1 | | wait | | | |
198 | F | clear; close all; use baseball; array=ar | | ()); afields(array); fi | el | d = ACHOI | 0 |
199 | F | clear; close all; use baseball; array= | | nt()); afields(array); di | sp | lay array | 0 |
200 | F | clear; close all; use baseball; array= | | nt()); afields(array); a | rr | ay2=array | 0 |
201 | F | clear; array=array(10); afill(array,'jun | | L(array,1); display array array; | | wait | |
202 | F | clear; array=array(4,4); | | ADIR('DCTUTOR*.*',ar | ra | y[1],arra | 0 |
203 | F | clear; af=directory('DCTUTOR*.*'); | | cb = { | af | qout(p | ad | r(af[1],1 | 3 |
204 | F | clear; close all; use baseball; field | | fcount()); AFIELDS(fields[1],fi | el | ds[2],fie | 0 |
205 | F | clear; close all; use baseball; BROWSE | | 0) | | | |
206 | F | clear; close all; use baseball; AF = AR | | NT()); afields(af[1],af[2]) | ; | displa | 0 |
207 | F | clear; BEGINPAINT(); @ 10,10 say 'This i | | @ 11,10 say 'example | o | f '; | 0 |
208 | F | clear; f = {}; aadd(f,{'name','c',25,0}) | | aadd(f,{'address','c | ', | 50,0}); | 0 |
209 | F | clear; close all; use baseball; | | cb = { || qout(playe | r, | team,leag | 0 |
210 | F | clear; close all; use baseball; DBEDI | | | | | |
211 | F | clear; close all; use baseball; array= | | afields(array); AS | OR | T(array); | 0 |
212 | F | clear; ? CURDIR(); ? CURDIR('D:'); wa | | | | | |
213 | F | clear; cb1={ | a | a * 10 }; ? EVAL( cb1, | | ? EVAL( cb1, 40 ); | c | b2 = { | | 0 |
214 | F | clear; myarray=array(2,5); AFI | | [1],'junk'); AFILL(MYARRAY[2],DAT | E( | )); dis | 0 |
215 | F | myarray=array(10); afill(myarray,'junk'); | | RRAY,3); AINS(MYARRAY,7); d | is | play arra | 0 |
216 | F | clear; close all; sele 17; use basebal | | 45; use sales; ? ALIAS | () | ; ? ALI | 0 |
217 | F | clear; ? ALLTRIM(" this is a test | | t | | | |
218 | F | clear; ? ASC('A'); ? ASC('a'); wait | | | | | |
219 | F | clear; close all; use baseball; fielda | | (fcount()); afields(fieldarray); | | fieldnum | 0 |
220 | F | clear; myarray=array(4); afill(myarray,' | | display array myarray; ASIZE(myar | ra | y,7); d | 0 |
221 | F | clear; string='THIS IS A TEST'; ? AT('IS | | ? AT('TEST',string); wait | | | |
222 | F | clear; ? BIN2I(chr(0)); ? BIN2I(chr(0)+c | | ? BIN2I(chr(1)+chr(1 | )) | ; ? BIN | 2 |
223 | F | clear; ? BIN2L(chr(0)); ? BIN2L(chr(0)+c | | ? BIN2L(chr(0)+chr(0)+chr(1)); ? | BI | N2L(chr(1 | 0 |
224 | F | clear; ? BIN2W(chr(0)); ? BIN2W(chr(0)+c | | ? BIN2W(chr(1)+chr(1)); ? BIN2W(c | hr | (255)+chr | 0 |
225 | F | clear; close all; use baseball; go top | | ); skip -1; ? BOF(); wait | | | |
226 | F | clear; ? CDOW(DATE()); ? CDOW(DATE()+1); | | | | | |
227 | F | clear; ? CHR(97)+CHR(98)+CHR(99)+CHR(100)+ | | ? CHR(176)+CHR(177)+ | CH | R(178); | 0 |
228 | F | clear; ? CMONTH(DATE()); ? CMONTH(CTOD(' | | ); wait; | | | |
229 | F | clear; ? COL(); ?? COL(); wait | | | | | |
230 | F | clear; datestring = "12/31/90"; ? datest | | ? valtype(datestring | ); | dateva | 0 |
231 | F | clear; ? DATE(); ? DATE()+1; wait | | | | | |
232 | F | clear; ? DAY(DATE()); ? DAY(DATE()+1); | | | | | |
233 | F | clear; close all; use baseball; ? DBF( | | | | | |
234 | F | clear; close all; use baseball; set fi | | AM='NL'; ? DBFILTER(); wait | ; | | |
235 | F | clear; close all; use baseball; sele 0 | | les; set relation to YEAR | I | NTO BASEB | 0 |
236 | F | clear; close all; use baseball; sele 0 | | les; set relation to YEAR | I | NTO BASEB | 0 |
237 | F | clear; close all; use baseball; MYARRA | | CT(); aeval ( myarray, { | | a| | qout(pad | 0 |
238 | F | clear; close all; use baseball; delete | | TED(); recall; ? DELETED( | ); | wait | |
239 | F | clear; close all; use baseball; index | | (team) to temp; list player,team, | le | ague; w | 0 |
240 | F | | | | | | |
241 | F | clear; myarray=DIRECTORY('*.dbf'); aeval | | |a|qout(padl(a[1],13),a[2],a[3],a[4 | ], | a[5])}); | 0 |
242 | F | clear; close all; erase junk.dbf; use | | ? DISKSPACE(); copy to junk; | us | e; ? DI | 0 |
243 | F | | | | | | |
244 | F | clear; ? DOW(DATE()); ? DOW(DATE()+1); | | | | | |
245 | F | clear; datevalue=date(); ? datevalue; | | datevalue); datestring=DTOC(date | va | lue); ? | 0 |
246 | F | clear; ? DTOS(DATE()); ? DTOS(DATE()+365 | | | | | |
247 | F | ? EMPTY('junk'); ? EMPTY(' '); ? EMPT | | ? EMPTY(0); ? EMPTY(DATE()); ? | E | MPTY(CTOD | 0 |
248 | F | clear; close all; use baseball; go bot | | (); skip; ? EOF(); wait | | | |
249 | F | clear; dcliperror=ERRORBLOCK(); ERRORBLO | | REAK(1) } ); * create an error; | ? | THIS IS | 0 |
250 | F | ERRORLEVEL(6); ? ERRORLEVEL(); wait | | | | | |
251 | F | set decimals to 10; ? EXP(1); ? EXP(2); | | P(2)); wait | | | |
252 | F | clear; handle=fcreate('junk.txt'); fwrit | | line 1'+chr(13)+chr(10)); fwrite( | ha | ndle,'lin | 0 |
253 | F | clear; close all; use baseball; ? FCOU | | it | | | |
254 | F | clear; crlf=CHR(13)+CHR(10); handle=FCRE | | txt'); fwrite(handle,'junk line 1 | '+ | crlf); | 0 |
255 | F | clear; close all; use baseball; copy t | | dir junk.dbf; ? FERASE('JUNK.DBF' | ); | dir ju | 0 |
256 | F | | | | | | |
257 | F | clear; close all; use baseball; ? FIEL | | FIELD(2); ? FIELD(3); ? FIEL | D( | 4); wai | 0 |
258 | F | set default to; ? FILE('BASEBALL.DBF'); | | XXX.XXX'); wait | | | |
259 | F | ? FKLABEL(1); ? FKLABEL(9); ? FKLABEL(10 | | ABEL(19); ? FKLABEL(20); ? F | KL | ABEL(30); | 0 |
260 | F | ? FKMAX(); wait | | | | | |
261 | F | clear; close all; set exclusive off; u | | l; dele for recno()>5; | | ? FLOCK() | 0 |
262 | F | clear; close all; handle=FOPEN('DCTUTOR1 | | fseek(handle,22); | ? | trim(frea | 0 |
263 | F | clear; close all; use baseball index tea | | 'LAKERS'; ? FOUND(); seek 'D | OD | GERS'; | 0 |
264 | F | clear; close all; handle=fopen('dctutor1 | | buffer=SPACE(256); | f | seek(hand | 0 |
265 | F | clear; close all; handle=fopen('baseball | | fseek(handle,32,0); | | ? FREADST | 0 |
266 | F | clear; close all; use baseball; copy t | | ? FRENAME('junk.dbf' | ,' | newfile.d | 0 |
267 | F | clear; close all; handle=fopen('dctutor1 | | FSEEK(handle,22); | ? | freadstr( | 0 |
268 | F | clear; cr=CHR(13)+CHR(10); handle=fcreat | | t'); FWRITE(handle,'junk | l | ine 1'+cr | 0 |
269 | F | clear; ? GETENV('COMSPEC'); ? GETENV('DC | | ? GETENV('CLIPPER'); | | wait | |
270 | F | clear; softtext='line 1'+chr(141)+chr(10)+' | | r(141)+chr(10); ? softtext; har | dt | ext=HARDC | 0 |
271 | F | clear; close all; use baseball; | | ? 'Header size is: ' | + | str(HEADE | 0 |
272 | F | clear; a = 2; ? IIF(mod(a,2)=0,'a is eve | | dd'); wait | | | |
273 | F | clear; ? INDEXEXT(); wait | | | | | |
274 | F | clear; close all; use baseball index tea | | ? INDEXKEY(); ? INDEXKEY(1); | ? | INDEXKEY( | 2 |
275 | F | clear; close all; use baseball index tea | | ? INDEXORD(); set order to 2; | ? | INDEXORD | 0 |
276 | F | clear; keyboard ' a'; ? INKEY(); * now | | ey; ? INKEY(0) | | | |
277 | F | clear; ? INT(123.456); ? INT(3.78911055) | | | | | |
278 | F | clear; ? ISALPHA('A'); ? ISALPHA('z'); | | ('#ABC'); ? ISALPHA('9'); wa | it | | |
279 | F | clear; ? ISCOLOR(); wait | | | | | |
280 | F | clear; ? ISDIGIT('8'); ? ISDIGIT('%'); | | ('A'); ? ISDIGIT('5ABC'); | w | ait | |
281 | F | clear; ? ISLOWER('a'); ? ISLOWER('A'); | | ('9'); ? ISLOWER('z123'); | w | ait | |
282 | F | clear; * take the printer off-line; wait | | INTER(); * ready the printer; | | wait; | 0 |
283 | F | clear; ? ISUPPER('A'); ? ISUPPER('a'); | | ('9'); ? ISUPPER('*'); wa | it | | |
284 | F | clear; a=I2BIN(4096); ? str(asc(substr(a | | r(asc(substr(a,2,1))); b=I2BIN(40 | 97 | ); ? st | 0 |
285 | F | clear; keyboard chr(13)+chr(10); inkey() | | KEY(); wait | | | |
286 | F | clear; close all; use baseball; ? LAST | | ele 0; use sales; ? LASTR | EC | (); wai | 0 |
287 | F | clear; ? LEFT('this is a test',7); ? LEF | | ,2); wait; | | | |
288 | F | clear; ? LEN('this is a test'); ? LEN("" | | ay=array(4,10); ? LEN(myarray); | ? | LEN(myar | 0 |
289 | F | clear; ? LOG(10); ? LOG(10 * 2); ? EXP | | ? LOG(2.718); wait | | | |
290 | F | clear; ? LOWER('THIS IS A TEST'); ? LOWE | | CDEF'); wait | | | |
291 | F | clear; test = ' this is a test '; | | ? len(test); ? LTRIM ( test ); | ? | len(LTRIM | 0 |
292 | F | clear; close all; use baseball; ? LUPD | | repl year with 81; | ? | LUPDATE( | 0 |
293 | F | clear; ? MAX ( DATE() , CTOD('12/31/90') ) | | ? MAX ( DATE() , DAT | E( | )+1 ); | 0 |
294 | F | clear; ? MAXCOL(); wait; setmode(25,40 | | COL(); wait; setmode(25,80); | cl | ear | |
295 | F | clear; @ 10,1 say 'the screen is '+str(MAX | | ows long'; wait; setmode(50,80) | ; | @ 11,1 | 0 |
296 | F | set echo off; set cons off; clear; mem | | 1'+chr(13)+chr(10)+'line 2'+chr(13) | +c | hr(10); | 0 |
297 | F | clear; cr = CHR(13)+CHR(10); text = 'lin | | ine 2'+cr+'line 3'+cr+'line 4'+cr; | | ? text; | 0 |
298 | F | clear; readme = MEMOREAD ( 'READ.ME' ); | | wait | | | |
299 | F | clear; ? MEMORY(0); ? MEMORY(1); ? MEM | | wait | | | |
300 | F | clear; crlf = CHR(13)+CHR(10); text = 'l | | f+'line 2'+crlf+'line 3'+crlf+'line | 4 | '+crlf; | 0 |
301 | F | clear; crlf = CHR(13) + CHR(10); text = | | rlf+'line 2'+crlf+'line 3'+crlf+'li | ne | 4'+crlf; | 0 |
302 | F | clear; ? MIN ( DATE(), DATE()+1 ); ? MIN | | CTOD('12/31/90') ); ? MIN ( 123, | 1 | 24 ); w | 0 |
303 | F | clear; cr = CHR(13)+CHR(10); | | text = 'line 1'+cr+' | li | ne 2'+cr+ | 0 |
304 | F | clear; crlf = CHR(13)+CHR(10); text = 'l | | f+'line 2'+crlf+'line 3'+crlf+'line | 4 | '+crlf; | 0 |
305 | F | clear; ? MOD ( 4, 3 ); ? MOD ( 4, 4 ); | | , 2 ); ? MOD ( 7, 3 ); wa | it | | |
306 | F | clear; ? MONTH ( DATE() ); ? MONTH ( DAT | | ; wait | | | |
307 | F | clear; close all; set exclusive off; u | | l; ? NETERR(); set exclusive on | ; | wait | |
308 | F | clear; ? NETNAME(); wait | | | | | |
309 | F | clear; keyboard chr(13)+chr(13); ? NEXTK | | it | | | |
310 | F | clear; ? OS(); wait | | | | | |
311 | F | clear; ? PADC ( 'this is a test', 30, '*' | | C ( DATE(), 25, '#' ); ? PADL ( ' | ab | cd', 10, | 0 |
312 | F | clear; ? PCOL(); set printer to junk; | | to print; @ 10,10 say 'testing | '; | ? PCOL | 0 |
313 | F | clear; /proc testing; parameters a,b,c,d,e | | (); return; testing ( 0, 0, 0 ); | | testing | 0 |
314 | F | clear; ? PROCLINE(0); ? PROCLINE(1); ? | | 2); wait | | | |
315 | F | clear; ? PROCNAME(0); ? PROCNAME(1); ? | | 2); wait | | | |
316 | F | clear; ? PROW(); set printer to junk; | | to print; @ 22,12 say 'testing | '; | ? PROW | 0 |
317 | F | clear; QOUT ( ' testing', DATE(), 5*4 ); | | more testing' ); close all; use | b | aseball; | |
318 | F | clear; ? RAT ( 'ab', 'abcabcabc' ); wait | | | | | |
319 | F | clear; set cons off; READEXIT(.T.); te | | (5); @ 10,10 say 'READEXIT() is O | N | (.t.) - | 0 |
320 | F | clear; READINSERT(.t.); set cons off; | | is a test '; @ 11,2 SAY 'REA | DI | NSERT() i | 0 |
321 | F | clear; set cons off; readkey=space(10); | | say 'press any exit key' get readke | y; | read; | 0 |
322 | F | GetList = {}; use baseball; set cons off | | @ 10,10 SAY 'Player name ' GET p | la | yer; @ | 11 |
323 | F | clear; close all; use baseball; ? RECC | | append blank; ? RECCOUNT(); del | et | e; pack | 0 |
324 | F | clear; close all; use baseball; ? RECN | | p 5; ? RECNO(); skip 2 | ; | ? RECNO | 0 |
325 | F | clear; close all; use baseball; ? RECS | | se sales; ? RECSIZE(); wait | | | |
326 | F | clear; ? REPL ( 'abc', 5 ); ? REPL ( CHR | | ); characters=30; ? R | EP | L ( '=', | 0 |
327 | F | clear; set cons off; screen=savescreen() | | l(10,10,15,25,' My Box '); box=sa | ve | screen(9, | 8 |
328 | F | clear; ? RIGHT ( 'ABCDEF' , 3 ); ? RIGHT | | s a test', 4 ); ? RIGHT ( 'abcdef | gh | ' , 1 ); | 0 |
329 | F | clear; close all; set exclusive off; u | | l; append blank; unlo | ck | ; repl | 0 |
330 | F | clear; ? ROUND ( 10.4, 0 ); ? ROUND ( 10 | | ? ROUND ( 10.5, 1 ); | | ? ROUND | 0 |
331 | F | clear; ? ROW(); wait | | | | | |
332 | F | clear; test = 'this is a test ' | | moretest = 'more tes | ti | ng'; ? | 0 |
333 | F | clear; set cons off; screen=SAVESCREEN() | | l(10,10,15,25,' My Box '); box=SA | VE | SCREEN(9, | 8 |
334 | F | clear; ? REPL ( " abcdefghijklmnopqrstuvwx | | ); set cons off; @ 6,9 to 16,36 | ; | SCROLL( | 7 |
335 | F | clear; start_time=SECONDS(); DC_EXPLODE( | | 0,'','','',.f.,150); INKEY(3); | en | d_time=SE | 0 |
336 | F | clear; close all; sele 35; use basebal | | 99; use sales; ? SELECT('BASEBA | LL | '); ? S | 0 |
337 | F | _set_date = 4; french='dd/mm/yy'; clear; | | date format; saveformat = SET ( _ | se | t_date ); | 0 |
338 | F | clear; ? SETCOLOR(); SETCOLOR ( 'W' ); | | is white on black'; SETCOLOR | ( | 'W/R' ); | 0 |
339 | F | clear; ? SETCURSOR(); SETCURSOR ( 0 ); | | ETCURSOR ( 2 ); wait; SETCURSOR | ( | 3 ); w | 0 |
340 | F | clear; alt_t_key=276; | | SETKEY ( alt_t_key, | { | || QOUT(T | 0 |
341 | F | clear; QQOUT ( SETPOS ( 10, 10 ), 'writing | | ); QQOUT ( SETPOS ( 5, | 50 | ), 'writ | 0 |
342 | F | | | | | | |
343 | F | set decimals to 10; clear; ? SQRT ( 2 ); | | ( 3 * 3 ); set decimals to 2; | ? | SQRT ( 1 | 0 |
344 | F | clear; ? STR ( 2.3367 ); ? STR ( 2.3367, | | ? STR ( 2.3367, 5, | 3 | ); wait | |
345 | F | clear; ? STRTRAN ( 'this is a test' , 's', | | ? STRTRAN ( 'abcdefg | hi | ', 'def', | 0 |
346 | F | clear; * insert; ? STUFF ( 'ABCDEF', 2, | | ; * replace; ? STUFF ( 'ABCDEF' | , | 2, 3, 'xy | 0 |
347 | F | clear; name = 'DONNAY Software Designs'; | | ( name, 1, 6 ); ? SUBSTR ( name, | 8 | ); ? SU | 0 |
348 | F | clear; ? TIME(); wait | | | | | |
349 | F | clear; TONE ( 100, 4 ); wait; TONE ( 1 | | wait; TONE ( 2000, 1 ); | wa | it; QOU | 0 |
350 | F | clear; ? TRANSFORM ( 123456, '$999,999.99' | | ? TRANSFORM ( DATE() | , | '99/99/99 | 0 |
351 | F | clear; string = 'abcdef'; ? TYPE ( 'stri | | ? TYPE ( 'DATE()' ); | | myarray | 0 |
352 | F | clear; getvar=' change the contents of thi | | set cons off; @ 10,10 get getv | ar | ; read; | 0 |
353 | F | clear; test = 'this is a test'; ? test; | | ( test ); wait | | | |
354 | F | clear; close all; ? USED(); use baseba | | ED(); wait | | | |
355 | F | clear; ? VAL ( '123' ); ? VAL ( '123.45' | | L ( 'abc' ); ? VAL ( '123abc' ); | | ? VAL ( ' | 0 |
356 | F | clear; ? VALTYPE ( 234.56 ); ? VALTYPE ( | | ? VALTYPE ( 9 > 8 ); | | myarray= | 0 |
357 | F | clear; ? VERSION(); wait | | | | | |
358 | F | | | | | | |
359 | F | clear; ? YEAR ( DATE() ); ? YEAR ( DATE( | | wait | | | |
360 | C | clear; MYARRAY1 = {}; disp array myarray | | AY2 = { 10, 22, "TEST", DATE() }; | d | isp array | 0 |
361 | C | clear; MYCODEBLOCK = { | a,b | a * b }; | | ycodeblock, 6, 7 ); wait | | |
|